<?php
$file=glob("$mypath/procesos/".$idpreg."*/extra.list.php");
if (file_exists($file[0])) {
include($file[0]);
echo $datos;
} else {
switch ($tipo){
			case 7://-------Tabla
	          echo tabla($ancho,$parametro1,$parametro2,$valor);
	        break;
	        case 2://-----Text
			  $SQL="SELECT * FROM requeridos WHERE idpreg=$idpreg AND idform='F$idform'";
			  $mireq=$forms2->Execute($SQL) or DIE ($forms2->ErrorMsg()."<br>$SQL<br>");
			  $thisreq=$mireq->Fields("requerido");
			  $idtipo=$thisreq{2};
			  if (!$hist) {
	         	 echo nl2br(vertext($ancho,$valor));
			  } else {
			 	 if ($idtipo==1) {
				    if (is_numeric($valor)) {
					$int=floor($valor);
					$dec=$valor-$int;
					$cant=0;
					if ($dec<>0) $cant=2;
					$valor=number_format($valor,$cant,",","");
				    }	
				 }
				 echo nl2br($valor);
			  }
		      //echo nl2br($valor);
			break;
	        case 3://-----Text area
			  if (!$hist) {
	          echo substr(vertextarea($parametro1,$valor),0,260);
			  } else {
			  echo vertextarea($parametro1,$valor);
			  }
	          //echo nl2br($valor);
			break;
	        case 6://----rotulo
	          //echo rotulo($descripcion);
	        break;
	        case 8://----Fecha 
	          echo verfecha($valor);
	        break;
	        case 9://----Fecha y Hora
	          echo verfechahora($valor);
	        break;
			case 11://----Imagen
			  echo imagen("36*36",$valor);
			break;
			case 12://---subformularios
			  if (!$hist) {
			  echo subform($id,$parametro1,$valor);
			  } else {
			  echo subform($id,$parametro1,$valor);
			  }
			break;
			case 13;//firme origen
			  echo verfirma($valor);
			break;
			case 14://---subformularios padre
			  if (!$hist) {
			  echo subformp($id,$parametro1);}
			  else {
			  echo subformhist($valor,$parametro1);
			  }
			break;
			case 15://---procesos
			    $val="";
				if (!$hist) {
				$file=glob("$mypath/procesos/".$idpreg."*/".$parametro1.".list.php");
				} else {
				$file=glob("$mypath/procesos/".$idpreg."*/".$parametro1.".view.php");
				}
				if (file_exists($file[0]))
				require($file[0]);
			    echo nl2br($val);
			break;
			case 5: //---combo
			if($parametro3<>''){//----para Alt source

				echo veropcionesAlt($parametro3,$valor);
				} else {//default
				echo veropciones($idop,$valor)."<br>\n";
				}
			break;
			default:
			  echo veropciones($idop,$valor);
			break;
	      }
}?>